unit uBaiduNetDiskNew;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  Spin, Buttons;

type

  { TFmBaiduNetDiskEdit }

  TFmBaiduNetDiskEdit = class(TForm)
    BtnTestConnect: TButton;
    BTOK: TButton;
    EDName: TEdit;
    EDAuthCode: TEdit;
    Label3: TLabel;
    LBIP: TLabel;
    Panel1: TPanel;
    PanelCodeSet: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    PnlWebview: TPanel;
    SPBGetBaiduInfoNext: TSpeedButton;
    procedure BtnTestConnectClick(Sender: TObject);
    procedure BTOKClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure SPBGetBaiduInfoNextClick(Sender: TObject);
  private

  public

  end;

var
  FmBaiduNetDiskEdit: TFmBaiduNetDiskEdit;

implementation

{$R *.lfm}

{ TFmBaiduNetDiskEdit }

procedure TFmBaiduNetDiskEdit.BTOKClick(Sender: TObject);
begin

end;

procedure TFmBaiduNetDiskEdit.BtnTestConnectClick(Sender: TObject);
begin

end;

procedure TFmBaiduNetDiskEdit.Button1Click(Sender: TObject);
begin

end;

procedure TFmBaiduNetDiskEdit.FormClick(Sender: TObject);
begin

end;

procedure TFmBaiduNetDiskEdit.FormCreate(Sender: TObject);
begin

end;

procedure TFmBaiduNetDiskEdit.Panel2Click(Sender: TObject);
begin

end;

procedure TFmBaiduNetDiskEdit.SPBGetBaiduInfoNextClick(Sender: TObject);
begin

end;

end.

